home *** CD-ROM | disk | FTP | other *** search
- object frmMain: TfrmMain
- Left = 328
- Top = 221
- BorderStyle = bsNone
- Caption = 'Clock'
- ClientHeight = 165
- ClientWidth = 140
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Shape1: TShape
- Left = 0
- Top = 0
- Width = 140
- Height = 165
- Brush.Style = bsClear
- Pen.Color = clWhite
- end
- object imgClock: TImage
- Left = 3
- Top = 14
- Width = 134
- Height = 143
- Picture.Data = {<image000.bmp>}
- OnMouseDown = imgClockMouseDown
- OnMouseMove = imgClockMouseMove
- OnMouseUp = imgClockMouseUp
- end
- object imgClose: TImage
- Left = 0
- Top = 0
- Width = 21
- Height = 15
- Picture.Data = {<image001.bmp>}
- OnClick = imgCloseClick
- OnMouseDown = imgCloseMouseDown
- end
- object imgSmaller: TImage
- Left = 93
- Top = 0
- Width = 26
- Height = 15
- Picture.Data = {<image002.bmp>}
- OnMouseDown = imgSmallerMouseDown
- end
- object imgFrontBack: TImage
- Left = 117
- Top = 0
- Width = 24
- Height = 15
- Picture.Data = {<image003.bmp>}
- OnMouseDown = imgFrontBackMouseDown
- end
- object imgResize: TImage
- Left = 122
- Top = 155
- Width = 20
- Height = 10
- Picture.Data = {<image004.bmp>}
- OnMouseDown = imgResizeMouseDown
- end
- object imgClockCaption: TImage
- Left = 19
- Top = 0
- Width = 76
- Height = 16
- Picture.Data = {<image005.bmp>}
- OnMouseDown = imgClockCaptionMouseDown
- end
- object imgBorderBottom: TImage
- Left = 1
- Top = 155
- Width = 121
- Height = 10
- Picture.Data = {<image006.bmp>}
- Stretch = True
- OnMouseDown = imgBorderBottomMouseDown
- end
- object imgBorderLeft: TImage
- Left = 0
- Top = 14
- Width = 4
- Height = 142
- Picture.Data = {<image007.bmp>}
- Stretch = True
- end
- object imgBorderRight: TImage
- Left = 135
- Top = 14
- Width = 4
- Height = 141
- Picture.Data = {<image008.bmp>}
- Stretch = True
- end
- object lblDate: TLabel
- Left = 5
- Top = 144
- Width = 131
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'lblDate'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object lblTimeDigital: TLabel
- Left = 57
- Top = 0
- Width = 62
- Height = 13
- Caption = 'lblTimeDigital'
- Transparent = True
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 107
- Top = 127
- end
- end
-